home *** CD-ROM | disk | FTP | other *** search
/ Languguage OS 2 / Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO / a_utils / perl / msds-prl / ptchds19.zoo / stat_t < prev    next >
Text File  |  1992-02-23  |  9KB  |  299 lines
  1. MS-DOS patches to perl.
  2. Apply this patch to the standard perl source, version 4, patch level 19,
  3. using "patch -p."  Do this in the root directory of the perl source
  4. distribution.
  5.  
  6. You can cat all these patches together and pipe the output to patch -p.
  7.  
  8. Len Reed
  9. Holos Software, Inc.
  10. ..!gatech!holos0!lbr
  11. holos0!lbr@gatech.edu
  12. --------------------------------------
  13. *** t/op/stat.t.old    Thu Nov 14 07:29:34 1991
  14. --- t/op/stat.t    Sun Feb  2 21:10:06 1992
  15. ***************
  16. *** 4,17 ****
  17.   
  18.   print "1..56\n";
  19.   
  20.   chop($cwd = `pwd`);
  21.   
  22. ! $DEV = `ls -l /dev`;
  23.   
  24. ! unlink "Op.stat.tmp";
  25. ! open(FOO, ">Op.stat.tmp");
  26.   
  27. ! $junk = `ls Op.stat.tmp`;    # hack to make Apollo update link count
  28.   
  29.   ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,
  30.       $blksize,$blocks) = stat(FOO);
  31. --- 4,35 ----
  32.   
  33.   print "1..56\n";
  34.   
  35. + eval('umask');    # won't work on MS-DOS
  36. + $msdos = $@;
  37. + 
  38. + if ( $msdos) {
  39. +     $null_dev = 'NUL';
  40. +     $dev_dir = "$ENV{'ROOTDIR'}/bin";
  41. +     $usr_bin = $dev_dir;
  42. +     $tty = 'CON';
  43. +     $E = '.exe';
  44. + }
  45. + else {
  46. +     $null_dev = '/dev/null';
  47. +     $dev_dir = '/dev';
  48. +     $usr_bin = '/usr/bin';
  49. +     $tty = '/dev/tty';
  50. +     $E = '';
  51. + }
  52. + 
  53.   chop($cwd = `pwd`);
  54.   
  55. ! $DEV = `ls -l $dev_dir`;
  56.   
  57. ! unlink "Op_stat.tmp";
  58. ! open(FOO, ">Op_stat.tmp");
  59.   
  60. ! $junk = `ls Op_stat.tmp`;    # hack to make Apollo update link count
  61.   
  62.   ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,
  63.       $blksize,$blocks) = stat(FOO);
  64. ***************
  65. *** 23,35 ****
  66.   
  67.   sleep 2;
  68.   
  69. ! `rm -f Op.stat.tmp2; ln Op.stat.tmp Op.stat.tmp2; chmod 644 Op.stat.tmp`;
  70.   
  71.   ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,
  72. !     $blksize,$blocks) = stat('Op.stat.tmp');
  73.   
  74. ! if ($nlink == 2) {print "ok 3\n";} else {print "not ok 3\n";}
  75. ! if (($mtime && $mtime != $ctime) || $cwd =~ m#/afs/#) {
  76.       print "ok 4\n";
  77.   }
  78.   else {
  79. --- 41,53 ----
  80.   
  81.   sleep 2;
  82.   
  83. ! `rm -f Op_stat.tmp2; ln Op_stat.tmp Op_stat.tmp2; chmod 644 Op_stat.tmp`;
  84.   
  85.   ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,
  86. !     $blksize,$blocks) = stat('Op_stat.tmp');
  87.   
  88. ! if ($nlink == 2 || $msdos) {print "ok 3\n";} else {print "not ok 3\n";}
  89. ! if (($mtime && $mtime != $ctime) || $msdos || $cwd =~ m#/afs/#) {
  90.       print "ok 4\n";
  91.   }
  92.   else {
  93. ***************
  94. *** 37,90 ****
  95.   }
  96.   print "#4    :$mtime: != :$ctime:\n";
  97.   
  98. ! `rm -f Op.stat.tmp`;
  99. ! `touch Op.stat.tmp`;
  100.   
  101. ! if (-z 'Op.stat.tmp') {print "ok 5\n";} else {print "not ok 5\n";}
  102. ! if (! -s 'Op.stat.tmp') {print "ok 6\n";} else {print "not ok 6\n";}
  103.   
  104. ! `echo hi >Op.stat.tmp`;
  105. ! if (! -z 'Op.stat.tmp') {print "ok 7\n";} else {print "not ok 7\n";}
  106. ! if (-s 'Op.stat.tmp') {print "ok 8\n";} else {print "not ok 8\n";}
  107.   
  108. ! unlink 'Op.stat.tmp';
  109.   $olduid = $>;        # can't test -r if uid == 0
  110. ! `echo hi >Op.stat.tmp`;
  111. ! chmod 0,'Op.stat.tmp';
  112.   eval '$> = 1;';        # so switch uid (may not be implemented)
  113. ! if (!$> || ! -r 'Op.stat.tmp') {print "ok 9\n";} else {print "not ok 9\n";}
  114. ! if (!$> || ! -w 'Op.stat.tmp') {print "ok 10\n";} else {print "not ok 10\n";}
  115.   eval '$> = $olduid;';        # switch uid back (may not be implemented)
  116.   print "# olduid=$olduid, newuid=$>\n" unless ($> == $olduid);
  117. ! if (! -x 'Op.stat.tmp') {print "ok 11\n";} else {print "not ok 11\n";}
  118.   
  119.   foreach ((12,13,14,15,16,17)) {
  120.       print "ok $_\n";        #deleted tests
  121.   }
  122.   
  123. ! chmod 0700,'Op.stat.tmp';
  124. ! if (-r 'Op.stat.tmp') {print "ok 18\n";} else {print "not ok 18\n";}
  125. ! if (-w 'Op.stat.tmp') {print "ok 19\n";} else {print "not ok 19\n";}
  126. ! if (-x 'Op.stat.tmp') {print "ok 20\n";} else {print "not ok 20\n";}
  127.   
  128. ! if (-f 'Op.stat.tmp') {print "ok 21\n";} else {print "not ok 21\n";}
  129. ! if (! -d 'Op.stat.tmp') {print "ok 22\n";} else {print "not ok 22\n";}
  130.   
  131.   if (-d '.') {print "ok 23\n";} else {print "not ok 23\n";}
  132.   if (! -f '.') {print "ok 24\n";} else {print "not ok 24\n";}
  133.   
  134. ! if (`ls -l perl` =~ /^l.*->/) {
  135. !     if (-l 'perl') {print "ok 25\n";} else {print "not ok 25\n";}
  136.   }
  137.   else {
  138.       print "ok 25\n";
  139.   }
  140.   
  141. ! if (-o 'Op.stat.tmp') {print "ok 26\n";} else {print "not ok 26\n";}
  142.   
  143. ! if (-e 'Op.stat.tmp') {print "ok 27\n";} else {print "not ok 27\n";}
  144. ! `rm -f Op.stat.tmp Op.stat.tmp2`;
  145. ! if (! -e 'Op.stat.tmp') {print "ok 28\n";} else {print "not ok 28\n";}
  146.   
  147.   if ($DEV !~ /\nc.* (\S+)\n/)
  148.       {print "ok 29\n";}
  149. --- 55,108 ----
  150.   }
  151.   print "#4    :$mtime: != :$ctime:\n";
  152.   
  153. ! `rm -f Op_stat.tmp`;
  154. ! `touch Op_stat.tmp`;
  155.   
  156. ! if (-z 'Op_stat.tmp') {print "ok 5\n";} else {print "not ok 5\n";}
  157. ! if (! -s 'Op_stat.tmp') {print "ok 6\n";} else {print "not ok 6\n";}
  158.   
  159. ! `echo hi >Op_stat.tmp`;
  160. ! if (! -z 'Op_stat.tmp') {print "ok 7\n";} else {print "not ok 7\n";}
  161. ! if (-s 'Op_stat.tmp') {print "ok 8\n";} else {print "not ok 8\n";}
  162.   
  163. ! unlink 'Op_stat.tmp';
  164.   $olduid = $>;        # can't test -r if uid == 0
  165. ! `echo hi >Op_stat.tmp`;
  166. ! chmod 0,'Op_stat.tmp';
  167.   eval '$> = 1;';        # so switch uid (may not be implemented)
  168. ! if (!$> || ! -r 'Op_stat.tmp') {print "ok 9\n";} else {print "not ok 9\n";}
  169. ! if (!$> || ! -w 'Op_stat.tmp') {print "ok 10\n";} else {print "not ok 10\n";}
  170.   eval '$> = $olduid;';        # switch uid back (may not be implemented)
  171.   print "# olduid=$olduid, newuid=$>\n" unless ($> == $olduid);
  172. ! if (! -x 'Op_stat.tmp') {print "ok 11\n";} else {print "not ok 11\n";}
  173.   
  174.   foreach ((12,13,14,15,16,17)) {
  175.       print "ok $_\n";        #deleted tests
  176.   }
  177.   
  178. ! chmod 0700,'Op_stat.tmp';
  179. ! if (-r 'Op_stat.tmp') {print "ok 18\n";} else {print "not ok 18\n";}
  180. ! if (-w 'Op_stat.tmp') {print "ok 19\n";} else {print "not ok 19\n";}
  181. ! if (-x 'Op_stat.tmp') {print "ok 20\n";} else {print "not ok 20\n";}
  182.   
  183. ! if (-f 'Op_stat.tmp') {print "ok 21\n";} else {print "not ok 21\n";}
  184. ! if (! -d 'Op_stat.tmp') {print "ok 22\n";} else {print "not ok 22\n";}
  185.   
  186.   if (-d '.') {print "ok 23\n";} else {print "not ok 23\n";}
  187.   if (! -f '.') {print "ok 24\n";} else {print "not ok 24\n";}
  188.   
  189. ! if (`ls -l perl$E` =~ /^l.*->/) {
  190. !     if (-l 'perl$E') {print "ok 25\n";} else {print "not ok 25\n";}
  191.   }
  192.   else {
  193.       print "ok 25\n";
  194.   }
  195.   
  196. ! if (-o 'Op_stat.tmp') {print "ok 26\n";} else {print "not ok 26\n";}
  197.   
  198. ! if (-e 'Op_stat.tmp') {print "ok 27\n";} else {print "not ok 27\n";}
  199. ! `rm -f Op_stat.tmp Op_stat.tmp2`;
  200. ! if (! -e 'Op_stat.tmp') {print "ok 28\n";} else {print "not ok 28\n";}
  201.   
  202.   if ($DEV !~ /\nc.* (\S+)\n/)
  203.       {print "ok 29\n";}
  204. ***************
  205. *** 112,138 ****
  206.   
  207.   $cnt = $uid = 0;
  208.   
  209. ! die "Can't run op/stat.t test 35 without pwd working" unless $cwd;
  210. ! chdir '/usr/bin' || die "Can't cd to /usr/bin";
  211. ! while (defined($_ = <*>)) {
  212. !     $cnt++;
  213. !     $uid++ if -u;
  214. !     last if $uid && $uid < $cnt;
  215.   }
  216. ! chdir $cwd || die "Can't cd back to $cwd";
  217.   
  218. ! # I suppose this is going to fail somewhere...
  219. ! if ($uid > 0 && $uid < $cnt) {print "ok 35\n";} else {print "not ok 35\n";}
  220.   
  221. ! unless (open(tty,"/dev/tty")) {
  222. !     print STDERR "Can't open /dev/tty--run t/TEST outside of make.\n";
  223.   }
  224.   if (-t tty) {print "ok 36\n";} else {print "not ok 36\n";}
  225.   if (-c tty) {print "ok 37\n";} else {print "not ok 37\n";}
  226.   close(tty);
  227.   if (! -t tty) {print "ok 38\n";} else {print "not ok 38\n";}
  228. ! open(null,"/dev/null");
  229. ! if (! -t null || -e '/xenix') {print "ok 39\n";} else {print "not ok 39\n";}
  230.   close(null);
  231.   if (-t) {print "ok 40\n";} else {print "not ok 40\n";}
  232.   
  233. --- 130,162 ----
  234.   
  235.   $cnt = $uid = 0;
  236.   
  237. ! if ($msdos) {
  238. !     print "ok 35\n";    # no setuid on MS-DOS
  239.   }
  240. ! else {
  241. !     die "Can't run op/stat.t test 35 without pwd working" unless $cwd;
  242. !     chdir $usr_bin || die "Can't cd to $usr_bin";
  243. !     while (defined($_ = <*>)) {
  244. !     $cnt++;
  245. !     $uid++ if -u;
  246. !     last if $uid && $uid < $cnt;
  247. !     }
  248. !     chdir $cwd || die "Can't cd back to $cwd";
  249.   
  250. !     # I suppose this is going to fail somewhere...
  251. !     if ($uid > 0 && $uid < $cnt) {print "ok 35\n";} else {print "not ok 35\n";}
  252. ! }
  253.   
  254. ! unless (open(tty, $tty )) {
  255. !     print STDERR "Can't open $tty--run t/TEST outside of make.\n";
  256.   }
  257.   if (-t tty) {print "ok 36\n";} else {print "not ok 36\n";}
  258.   if (-c tty) {print "ok 37\n";} else {print "not ok 37\n";}
  259.   close(tty);
  260.   if (! -t tty) {print "ok 38\n";} else {print "not ok 38\n";}
  261. ! open(null,"$null_dev");
  262. ! if (! -t null || -e '/xenix' || $msdos)
  263. !     {print "ok 39\n";} else {print "not ok 39\n";}
  264.   close(null);
  265.   if (-t) {print "ok 40\n";} else {print "not ok 40\n";}
  266.   
  267. ***************
  268. *** 141,148 ****
  269.   if (-T 'op/stat.t') {print "ok 41\n";} else {print "not ok 41\n";}
  270.   if (! -B 'op/stat.t') {print "ok 42\n";} else {print "not ok 42\n";}
  271.   
  272. ! if (-B './perl') {print "ok 43\n";} else {print "not ok 43\n";}
  273. ! if (! -T './perl') {print "ok 44\n";} else {print "not ok 44\n";}
  274.   
  275.   open(FOO,'op/stat.t');
  276.   eval { -T FOO; };
  277. --- 165,172 ----
  278.   if (-T 'op/stat.t') {print "ok 41\n";} else {print "not ok 41\n";}
  279.   if (! -B 'op/stat.t') {print "ok 42\n";} else {print "not ok 42\n";}
  280.   
  281. ! if (-B "./perl$E") {print "ok 43\n";} else {print "not ok 43\n";}
  282. ! if (! -T "./perl$E") {print "ok 44\n";} else {print "not ok 44\n";}
  283.   
  284.   open(FOO,'op/stat.t');
  285.   eval { -T FOO; };
  286. ***************
  287. *** 172,176 ****
  288.   }
  289.   close(FOO);
  290.   
  291. ! if (-T '/dev/null') {print "ok 55\n";} else {print "not ok 55\n";}
  292. ! if (-B '/dev/null') {print "ok 56\n";} else {print "not ok 56\n";}
  293. --- 196,200 ----
  294.   }
  295.   close(FOO);
  296.   
  297. ! if (-T "$null_dev") {print "ok 55\n";} else {print "not ok 55\n";}
  298. ! if (-B "$null_dev") {print "ok 56\n";} else {print "not ok 56\n";}
  299.